home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / CD-ROM Tools / CDP / Install < prev    next >
Text File  |  1996-09-26  |  4KB  |  135 lines
  1. ; Installscript for CDP (c) 1994-95 by andreash, Andreas Harrenberg
  2.  
  3. (set app_name "CDP")
  4. (set version "0.771")
  5. (set vers_name (cat app_name version))
  6.  
  7. ; Texte für den Installer
  8.  
  9. ; -- english [default]
  10.  
  11. (set #badkick (cat "You need at least Kickstart 2.04 (37.175),\n"
  12.                    "to use CDP.")
  13. )
  14. (set #badMUI (cat  "You need at least MUI 2.1 to use CDP.\n"
  15.                    "MUI © Stefan Stuntz")
  16. )
  17. (set #introduction (cat "\n\n"
  18.                         "CDP, a SCSI-II CD-Player\n\n"
  19.                         "CDP © 1994-95 Andreas Harrenberg\n"
  20.                         "MUI © Stefan Stuntz\n\n"
  21.                         "CDP is Freeware!\n")
  22. )
  23. (set #askprogdir (cat "Please choose a directory for " app_name ".\n"
  24.                       "A directory "app_name" will be created!\n")
  25. )
  26. (set #mkdir ("creating directory "))
  27. (set #cpprog ("copy the programm...\n"))
  28. (set #doctype (cat "The Manual for " app_name " is availble in Guide-Format,\n"
  29.                    "as ASCII and as DVI. Which Versions should be installed?\n")
  30. )
  31. (set #doc (cat app_name ".doc"))
  32. (set #guide (cat app_name "_English.guide"))
  33. (set #dvi (cat app_name "_E.dvi"))
  34. (set #askdocdir (cat "Please choose a directory for the manual.\n"
  35.                      "A directory will NOT be created!\n")
  36. )
  37.  
  38.  
  39. ; -- deutsch
  40.  
  41. (if (= @language "deutsch") (
  42.     (set #badkick (cat "Sie benötigen mindestens Kickstart 2.04 (37.175),\n"
  43.                        "um CDP benutzen zu können.")
  44.     )
  45.     (set #badMUI (cat  "Sie benötigen mindestens MUI 2.1 um CDP benutzen zu können.\n"
  46.                        "MUI © Stefan Stuntz")
  47.     )
  48.     (set #introduction (cat "\n\n"
  49.                             "CDP, ein SCSI-II CD-Player\n\n"
  50.                             "CDP © 1994-95 Andreas Harrenberg\n"
  51.                             "MUI © Stefan Stuntz\n\n"
  52.                             "CDP ist Freeware!\n")
  53.     )
  54.     (set #askprogdir (cat "Bitte wählen Sie ein Verzeichnis für " app_name ".\n"
  55.                           "Es wird eine Schublade "app_name" erzeugt!\n")
  56.     )
  57.     (set #mkdir ("Erzeuge Schublade "))
  58.     (set #cpprog ("Kopieren des Programms...\n"))
  59.     (set #doctype (cat "Die Anleitung zu " app_name " ist im Guide-Format,\n"
  60.                        "als ASCII und als DVI verfügbar. Welche Version soll\n"
  61.                        "installiert werden?\n"))
  62.     (set #doc (cat app_name ".dok"))
  63.     (set #guide (cat app_name "_Deutsch.guide"))
  64.     (set #dvi (cat app_name "_D.dvi"))
  65.     (set #askdocdir (cat "Bitte wählen Sie ein Verzeichnis für die Anleitung.\n"
  66.                          "Es wird KEINE Schublade angelegt!\n")
  67.     )
  68. ))
  69.  
  70.  
  71. ; -------------------------------------------------------------------------
  72.  
  73. (transcript (cat "Installing " @vers_name " ..."))
  74.  
  75. (if (< (/ (getversion) 65536) 37) (
  76.     (message #badkick)
  77.     (exit (quiet))
  78. ))
  79.  
  80. (if (< (/ (getversion "libs:muimaster.library") 65536) 7) (
  81.     (message #badmui)
  82.     (exit (quiet))
  83. ))
  84.  
  85. ; -------------------------------------------------------------------------
  86. (complete 0)
  87.  
  88. (message #introduction)
  89.  
  90. (welcome)
  91.  
  92. ; -------------------------------------------------------------------------
  93.  
  94. (set progdir
  95.     (askdir
  96.         (prompt #askprogdir)
  97.         (help @askdir_help)
  98.         (default "Work:")
  99.     )
  100. )
  101. (set progdir (tackon progdir app_name))
  102. (makedir progdir
  103.     (infos)
  104.     (prompt (cat #mkdir app_name "\n"))
  105. )
  106.  
  107. (copylib
  108.     (prompt #cpprog)
  109.     (source (cat "bin/" app_name))
  110.     (dest progdir)
  111.     (infos)
  112.     (help @copylib-help)
  113.     (confirm)
  114. )
  115.  
  116. (complete 40)
  117.  
  118. (copyfiles
  119.     (prompt #doctype)
  120.     (dest progdir)
  121.     (infos)
  122.     (files)
  123.     (if (= @language "deutsch") (source "doc/deutsch"))
  124.     (if (= @language "english") (source "doc/english"))
  125.     (help @copylib-help)
  126.     (confirm)
  127.     (choices
  128.         #doc
  129.         #guide
  130.         #dvi
  131.     )
  132. )
  133.  
  134. (exit (quiet))
  135.